home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
winlib1.zip
/
EXAMPLES.ZIP
/
EXAM67.C
< prev
next >
Wrap
Text File
|
1991-01-05
|
761b
|
22 lines
#include <window.h>
#define NORM CREATE_VIDEO_ATTRIBUTE(black,white)
VWPOINTER vw; /* virtual window pointers */
WPOINTER w;
main()
{
WindowInitializeSystem();
WindowSaveInitial(0);
vw = VirtualInitialize(NOATTRIBUTE,30,80,NORM);
w = WindowInitialize(BORDER,1, 1,50,12,NORM,NORM,SINGLEBOX);
WindowOpen(w);
WindowDisplay(w,1,NOEFFECT);
VirtualWriteStringRJ(vw,"This",1,10);
VirtualWriteStringRJ(vw,"is",2,10);
VirtualWriteStringRJ(vw,"right",3,10);
VirtualWriteStringRJ(vw,"justified",4,10);
VirtualWriteStringRJ(vw,"on ",5,10);
VirtualWriteStringRJ(vw,"column",6,10);
VirtualWriteStringRJ(vw,"10",7,10);
WindowAssignToVirtual(w,vw,1,1);
}